home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / pcboard / cobs_110.zip / COBS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-10  |  21KB  |  1,094 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  TINTEGER004(25)
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.     String   STRING010
  37.     String   STRING011
  38.     String   STRING012
  39.     String   STRING013
  40.     String   STRING014
  41.     String   STRING015
  42.     String   STRING016
  43.     String   STRING017
  44.     String   STRING018
  45.     String   TSTRING019(10)
  46.     String   TSTRING020(25)
  47.     String   TSTRING021(25)
  48.     String   STRING022
  49.     String   TSTRING023(25)
  50.     String   TSTRING024(10)
  51.     String   TSTRING025(10)
  52.     String   TSTRING026(20)
  53.     String   STRING027
  54.     String   STRING028
  55.     String   STRING029
  56.     Declare  Procedure PROC001(Boolean BOOLEAN001)
  57.     Declare  Procedure PROC002()
  58.     Declare  Procedure PROC003()
  59.     Declare  Procedure PROC004()
  60.     Declare  Procedure PROC005()
  61.     Declare  Procedure PROC006()
  62.     Declare  Procedure PROC007()
  63.     Declare  Procedure PROC008()
  64.     Declare  Procedure PROC009()
  65.     Declare  Procedure PROC010()
  66.     Declare  Procedure PROC011()
  67.     Declare  Procedure PROC012()
  68.     Declare  Procedure PROC013()
  69.  
  70. ;------------------------------------------------------------------------------
  71.  
  72.     STRING002 = Chr(67) + Chr(79) + Chr(66) + Chr(83)
  73.     STRING003 = Chr(118) + Chr(49) + Chr(46) + Chr(49) + Chr(48)
  74.     STRING004 = Chr(67) + Chr(117) + Chr(115) + Chr(116) + Chr(111) + Chr(109) + Chr(32) + Chr(79) + Chr(110) + Chr(108) + Chr(105) + Chr(110) + Chr(101) + Chr(32) + Chr(66) + Chr(97) + Chr(110) + Chr(107) + Chr(105) + Chr(110) + Chr(103) + Chr(32) + Chr(83) + Chr(121) + Chr(115) + Chr(116) + Chr(101) + Chr(109) + Chr(32) + Chr(80) + Chr(80) + Chr(69)
  75.     STRING028 = "If you have suggestions or requests for permanent or optional features,"
  76.     STRING029 = "please send mail to <mslasher@io.org>.  - Rob Hunter / COBS (c)1994-95 "
  77.     STRING006 = PPEPath() + STRING002 + "." + "D" + "A" + "T"
  78.     STRING007 = PPEPath() + STRING002 + "." + "D" + "S" + "P"
  79.     STRING008 = PPEPath() + STRING002 + "." + "P" + "M" + "T"
  80.     STRING005 = PPEPath() + STRING002 + "." + "E" + "X" + "T"
  81.     INTEGER009 = Date()
  82.     INTEGER003 = 1
  83.     STRING018 = "OFF"
  84.     INTEGER002 = 10
  85.     GetUser
  86.     If (Psa(6)) Goto LABEL001
  87.     Newline
  88.     PrintLn STRING002 + " " + STRING003 + " Error: PSA: PCBNOTES is not present in user file!"
  89.     Log "" + STRING002 + " " + STRING003 + " [PSA Error]", 0
  90.     PROC001(0)
  91.     :LABEL001
  92.     FOpen 4, ReadLine(PCBDat(), 32), 0, 0
  93.     FClose -1
  94.     :LABEL002
  95.     If (Ferr(4)) Goto LABEL003
  96.     FGet 4, STRING012
  97.     If (Left(Right(STRING012, Len(STRING012) - InStr(STRING012, ",")), Len(U_Sec)) == U_Sec) Then
  98.         STRING012 = Right(STRING012, Len(STRING012) - InStr(STRING012, ","))
  99.         STRING012 = Right(STRING012, Len(STRING012) - InStr(STRING012, ","))
  100.         STRING012 = Right(STRING012, Len(STRING012) - InStr(STRING012, ","))
  101.         TINTEGER004(13) = Left(STRING012, InStr(STRING012, ",") - 1)
  102.     Endif
  103.     Goto LABEL002
  104.     :LABEL003
  105.     FClose 4
  106.     STRING027 = "" + STRING002 + " " + STRING003 + " ["
  107.     Log STRING027 + Left(Time(), 5) + " / " + String(MinLeft()) + " / " + String(TINTEGER004(16)) + "]", 0
  108.     If (Exist(STRING006)) Then
  109.         FOpen 1, STRING006, 0, 0
  110.         FGet 1, INTEGER003
  111.         If ((INTEGER003 < 0) || (INTEGER003 > 5)) INTEGER003 = 1
  112.         FGet 1, INTEGER002
  113.         If (INTEGER002 == "") INTEGER002 = 10
  114.         :LABEL004
  115.         If (Ferr(1)) Goto LABEL005
  116.         FGet 1, STRING011
  117.         If (Left(STRING011, 1) == " ") Goto LABEL005
  118.         If (Left(STRING011, Len(U_Sec)) == U_Sec) Then
  119.             STRING011 = Right(STRING011, Len(STRING011) - InStr(STRING011, ","))
  120.             TINTEGER004(1) = Left(STRING011, InStr(STRING011, ",") - 1)
  121.             STRING011 = Right(STRING011, Len(STRING011) - InStr(STRING011, ","))
  122.             TINTEGER004(2) = Left(STRING011, InStr(STRING011, ",") - 1)
  123.             STRING011 = Right(STRING011, Len(STRING011) - InStr(STRING011, ","))
  124.             TINTEGER004(3) = Left(STRING011, InStr(STRING011, ",") - 1)
  125.             STRING011 = Right(STRING011, Len(STRING011) - InStr(STRING011, ","))
  126.             TINTEGER004(14) = Left(STRING011, InStr(STRING011, ",") - 1)
  127.             STRING011 = Right(STRING011, Len(STRING011) - InStr(STRING011, ","))
  128.             TINTEGER004(4) = Left(STRING011, InStr(STRING011, ",") - 1)
  129.             STRING011 = Right(STRING011, Len(STRING011) - InStr(STRING011, ","))
  130.             TINTEGER004(5) = Left(STRING011, InStr(STRING011, ",") - 1)
  131.             STRING011 = Right(STRING011, Len(STRING011) - InStr(STRING011, ","))
  132.             TINTEGER004(6) = Left(STRING011, InStr(STRING011, ",") - 1)
  133.             STRING011 = Right(STRING011, Len(STRING011) - InStr(STRING011, ","))
  134.             TINTEGER004(15) = STRING011
  135.         Endif
  136.         Goto LABEL004
  137.         :LABEL005
  138.         FClose 1
  139.         PROC004()
  140.         If (TINTEGER004(1) == "") Then
  141.         Endif
  142.         Newline
  143.         PrintLn "@X04[@X0C" + STRING002 + " " + STRING003 + " " + "E" + "rr" + "or@X04] @X07Configuration File Error!"
  144.         Newline
  145.         PrintLn "@X07The configuration file either does not exist, or your security level doesn't"
  146.         PrintLn "@X07contain any configuration information.   Please inform your system operator!"
  147.         Newline
  148.         Log STRING027 + "Error]", 0
  149.         PROC001(0)
  150.     Endif
  151.     Newline
  152.     Print "[" + STRING002 + " " + STRING003 + "] " + "@X0F" + STRING004 + " is loading ... "
  153.     Delay 5
  154.     Backup 80
  155.     ClrEol
  156.     STRING013 = U_Notes(INTEGER003 - 1)
  157.     If (Left(STRING013, 3) <> "MS[") Then
  158.         STRING013 = "MS[  0|" + Right(String(INTEGER009), 5) + "|  0|" + Right(String(INTEGER009), 5) + "|  0|     0|" + Right(String(INTEGER009), 5) + "|    0|" + Right(String(INTEGER009), 5) + "|    0]"
  159.         U_Notes(INTEGER003 - 1) = STRING013
  160.         PutUser
  161.     Endif
  162.     STRING013 = Right(STRING013, 57)
  163.     TINTEGER004(7) = LTrim(Left(STRING013, 3), " ")
  164.     If (TINTEGER004(7) > TINTEGER004(1)) TINTEGER004(7) = TINTEGER004(1)
  165.     STRING013 = Right(STRING013, 53)
  166.     INTEGER005 = Left(STRING013, 5)
  167.     STRING013 = Right(STRING013, 47)
  168.     TINTEGER004(8) = LTrim(Left(STRING013, 3), " ")
  169.     If (INTEGER005 <> INTEGER009) TINTEGER004(8) = 0
  170.     STRING013 = Right(STRING013, 43)
  171.     INTEGER007 = Left(STRING013, 5)
  172.     STRING013 = Right(STRING013, 37)
  173.     TINTEGER004(9) = LTrim(Left(STRING013, 3), " ")
  174.     If (INTEGER007 <> INTEGER009) TINTEGER004(9) = 0
  175.     STRING013 = Right(STRING013, 33)
  176.     TINTEGER004(10) = LTrim(Left(STRING013, 6), " ")
  177.     If (TINTEGER004(10) > TINTEGER004(4)) TINTEGER004(10) = TINTEGER004(4)
  178.     STRING013 = Right(STRING013, 26)
  179.     INTEGER006 = Left(STRING013, 5)
  180.     STRING013 = Right(STRING013, 20)
  181.     TINTEGER004(11) = LTrim(Left(STRING013, 6), " ")
  182.     If (INTEGER006 <> INTEGER009) TINTEGER004(11) = 0
  183.     STRING013 = Right(STRING013, 13)
  184.     INTEGER008 = Left(STRING013, 5)
  185.     STRING013 = Right(STRING013, 7)
  186.     TINTEGER004(12) = LTrim(Left(STRING013, 6), " ")
  187.     If (INTEGER008 <> INTEGER009) TINTEGER004(12) = 0
  188.     TINTEGER004(16) = TINTEGER004(13) - U_BdlDay() / 1024
  189.     TINTEGER004(17) = RTrim(Left(MinLeft(), 3), " ")
  190.     PROC009()
  191.     PROC010()
  192.     PROC012()
  193.     PROC013()
  194.     TSTRING024(1) = "Bank Command?"
  195.     TSTRING025(2) = "[Max: @COBS18@] Deposit how many minutes?"
  196.     TSTRING025(3) = "[Max: @COBS19@] Withdraw how many minutes?"
  197.     TSTRING025(4) = "[Max: @COBS22@min/Turn] Gamble how many minutes?"
  198.     TSTRING025(5) = "[Max: @COBS20@] Deposit how many kilobytes?"
  199.     TSTRING025(6) = "[Max: @COBS21@] Withdraw how many kilobytes?"
  200.     TSTRING025(7) = "[Max: @COBS23@k/Turn] Gamble how many kilobytes?"
  201.     TSTRING026(1) = "Invalid deposit amount ..."
  202.     TSTRING026(2) = "Invalid withdrawl amount ..."
  203.     TSTRING026(3) = "Invalid gamble amount ..."
  204.     TSTRING026(4) = "Depositing amount into your account ..."
  205.     TSTRING026(5) = "Withdrawing amount from your account ..."
  206.     TSTRING026(6) = "WINNER! - Adding amount to your online record ..."
  207.     TSTRING026(7) = "LOSER! - Removing amount from your online record ..."
  208.     TSTRING026(8) = "Sorry, you can not deposit any more ..."
  209.     TSTRING026(9) = "Sorry, you can not withdraw any more ..."
  210.     TSTRING026(10) = "Sorry, you must have atleast 2 minutes to gamble ..."
  211.     TSTRING026(11) = "Sorry, an event is pending.  Can not increase online time ..."
  212.     TSTRING026(12) = "Sorry, you must have a positive online KByte balance to gamble ..."
  213.     TSTRING019(1) = "DT"
  214.     TSTRING019(2) = "WT"
  215.     TSTRING019(3) = "GT"
  216.     TSTRING019(4) = "DB"
  217.     TSTRING019(5) = "WB"
  218.     TSTRING019(6) = "GB"
  219.     If (Exist(STRING008)) PROC003()
  220.     For INTEGER001 = 1 To 6
  221.         If ((Len(TSTRING019(INTEGER001)) > STRING010) && (TSTRING019(INTEGER001) <> "OFF")) STRING010 = Len(TSTRING019(INTEGER001))
  222.     Next
  223.     If (Exist(STRING007)) Goto LABEL006
  224.     PROC005()
  225.     Goto LABEL009
  226.     :LABEL006
  227.     Cls
  228.     FOpen 2, STRING007, 0, 0
  229.     :LABEL007
  230.     If (Ferr(2)) Goto LABEL008
  231.     FGet 2, STRING014
  232.     If (STRING014 == "") Goto LABEL008
  233.     If (InStr(STRING014, "@COBS") <> 0) Then
  234.         While (InStr(STRING014, "@COBS") <> 0) Do
  235.             Print Left(STRING014, InStr(STRING014, "@COBS") - 1)
  236.             STRING014 = Right(STRING014, Len(STRING014) - InStr(STRING014, "@COBS") + 4)
  237.             STRING015 = Left(STRING014, InStr(STRING014, "@") - 1)
  238.             If ((((STRING015 > 3) && (STRING015 < 7)) || ((STRING015 > 9) && (STRING015 < 14))) || ((STRING015 > 14) && (STRING015 < 17))) Then
  239.                 TSTRING023(STRING015) = String(CurColor())
  240.                 TSTRING020(STRING015) = String(GetX())
  241.                 TSTRING021(STRING015) = String(GetY())
  242.                 Print String(TINTEGER004(STRING015)) + Space(6 - Len(TINTEGER004(STRING015)))
  243.             Else
  244.                 TSTRING023(STRING015) = String(CurColor())
  245.                 TSTRING020(STRING015) = String(GetX())
  246.                 TSTRING021(STRING015) = String(GetY())
  247.                 Print String(TINTEGER004(STRING015)) + Space(3 - Len(TINTEGER004(STRING015)))
  248.             Endif
  249.             STRING014 = Right(STRING014, Len(STRING014) - InStr(STRING014, "@"))
  250.         EndWhile
  251.         Print STRING014
  252.         Newline
  253.     Else
  254.         PrintLn STRING014
  255.     Endif
  256.     Goto LABEL007
  257.     :LABEL008
  258.     FClose 2
  259.     :LABEL009
  260.     STRING022 = GetY()
  261.     :LABEL010
  262.     PROC011()
  263.     PROC002()
  264.     STRING017 = ""
  265.     InputStr TSTRING024(1) + " _", STRING017, 7, STRING010, String(TSTRING019(1)) + String(TSTRING019(2)) + String(TSTRING019(3)) + String(TSTRING019(4)) + String(TSTRING019(5)) + String(TSTRING019(6)), 32 + 8
  266.     Select Case (STRING017)
  267.         Case STRING018
  268.             Goto LABEL010
  269.         Case TSTRING019(1)
  270.             Goto LABEL011
  271.         Case TSTRING019(2)
  272.             Goto LABEL012
  273.         Case TSTRING019(3)
  274.             Goto LABEL014
  275.         Case TSTRING019(4)
  276.             Goto LABEL015
  277.         Case TSTRING019(5)
  278.             Goto LABEL018
  279.         Case TSTRING019(6)
  280.             Goto LABEL021
  281.         Case ""
  282.             Goto LABEL010
  283.     End Select
  284.     DefColor
  285.     If (Exist(STRING005)) DispFile STRING005, 0
  286.     PROC001(1)
  287.     :LABEL011
  288.     If (((MinLeft() < 3) || (TINTEGER004(7) >= TINTEGER004(1))) || (((INTEGER005 == INTEGER009) && (TINTEGER004(2) <> 0)) && (TINTEGER004(2) == TINTEGER004(8)))) Then
  289.         Print TSTRING026(8)
  290.         Delay INTEGER002
  291.         Backup 80
  292.         ClrEol
  293.         Goto LABEL010
  294.     Endif
  295.     PROC009()
  296.     STRING016 = ""
  297.     InputStr TSTRING024(2) + " _", STRING016, 7, Len(TINTEGER004(1)), Mask_Num(), 32
  298.     If (STRING016 == "") Goto LABEL010
  299.     If (STRING016 > MinLeft() - 2) Then
  300.         PROC007()
  301.         Goto LABEL010
  302.     Endif
  303.     If (TINTEGER004(2) <> 0) Then
  304.         If ((((INTEGER005 == INTEGER009) && (STRING016 + TINTEGER004(8) > TINTEGER004(2) + TINTEGER004(9))) || (STRING016 > TINTEGER004(2) + TINTEGER004(9))) || (STRING016 + TINTEGER004(7) > TINTEGER004(1))) Then
  305.             PROC007()
  306.             Goto LABEL010
  307.         Else
  308.             PROC008()
  309.             Goto LABEL010
  310.         Endif
  311.     ElseIf (TINTEGER004(7) + STRING016 > TINTEGER004(1)) Then
  312.         PROC007()
  313.         Goto LABEL010
  314.     Else
  315.         PROC008()
  316.         Goto LABEL010
  317.     Endif
  318.     Goto LABEL010
  319.     :LABEL012
  320.     If ((TINTEGER004(7) == 0) || (((INTEGER007 == INTEGER009) && (TINTEGER004(3) <> 0)) && (TINTEGER004(3) == TINTEGER004(9)))) Then
  321.         Print TSTRING026(9)
  322.         Delay INTEGER002
  323.         Backup 80
  324.         ClrEol
  325.         Goto LABEL010
  326.     Endif
  327.     If (EvtTimeAdj()) Then
  328.         Print TSTRING026(11)
  329.         Delay INTEGER002
  330.         Backup 80
  331.         ClrEol
  332.         Goto LABEL010
  333.     Endif
  334.     PROC010()
  335.     STRING016 = ""
  336.     InputStr TSTRING024(3) + " _", STRING016, 7, Len(TINTEGER004(1)), Mask_Num(), 32
  337.     If (STRING016 == "") Goto LABEL010
  338.     If (TINTEGER004(3) <> 0) Then
  339.         If ((((INTEGER007 == INTEGER009) && (STRING016 + TINTEGER004(9) > TINTEGER004(3) + TINTEGER004(8))) || (STRING016 > TINTEGER004(3) + TINTEGER004(8))) || (TINTEGER004(7) - STRING016 < 0)) Then
  340.             PROC006()
  341.             Goto LABEL010
  342.         Else
  343.             Gosub LABEL013
  344.             Goto LABEL010
  345.         Endif
  346.     ElseIf (STRING016 > TINTEGER004(7)) Then
  347.         PROC006()
  348.         Goto LABEL010
  349.     Else
  350.         Gosub LABEL013
  351.         Goto LABEL010
  352.     Endif
  353.     Goto LABEL010
  354.     :LABEL013
  355.     Log STRING027 + "T-W: " + String(STRING016) + "]", 0
  356.     Print TSTRING026(5)
  357.     AdjTime STRING016
  358.     TINTEGER004(17) = RTrim(Left(MinLeft(), 3), " ")
  359.     TINTEGER004(7) = TINTEGER004(7) - STRING016
  360.     If (INTEGER007 == INTEGER009) Then
  361.         TINTEGER004(9) = TINTEGER004(9) + STRING016
  362.     Else
  363.         INTEGER007 = INTEGER009
  364.         TINTEGER004(9) = STRING016
  365.     Endif
  366.     If (INTEGER005 == INTEGER009) Then
  367.         TINTEGER004(9) = TINTEGER004(9) - TINTEGER004(8)
  368.         If (TINTEGER004(9) < 0) TINTEGER004(9) = 0
  369.     Endif
  370.     If (TINTEGER004(8) - STRING016 < 0) Then
  371.         TINTEGER004(8) = 0
  372.     Else
  373.         TINTEGER004(8) = TINTEGER004(8) - STRING016
  374.     Endif
  375.     If ((TSTRING020(7) <> "") && AnsiOn()) Then
  376.         AnsiPos TSTRING020(7), TSTRING021(7)
  377.         Color TSTRING023(7)
  378.         Print Left(TINTEGER004(7), 3)
  379.     Endif
  380.     If ((TSTRING020(8) <> "") && AnsiOn()) Then
  381.         AnsiPos TSTRING020(8), TSTRING021(8)
  382.         Color TSTRING023(8)
  383.         Print Left(TINTEGER004(8), 3)
  384.     Endif
  385.     If ((TSTRING020(9) <> "") && AnsiOn()) Then
  386.         AnsiPos TSTRING020(9), TSTRING021(9)
  387.         Color TSTRING023(9)
  388.         Print Left(TINTEGER004(9), 3)
  389.     Endif
  390.     If ((TSTRING020(17) <> "") && AnsiOn()) Then
  391.         AnsiPos TSTRING020(17), TSTRING021(17)
  392.         Color TSTRING023(17)
  393.         Print Left(TINTEGER004(17), 3)
  394.     Endif
  395.     AnsiPos 1, STRING022
  396.     Delay INTEGER002
  397.     DefColor
  398.     ClrEol
  399.     Return
  400.     :LABEL014
  401.     If (MinLeft() < 3) Then
  402.         Print TSTRING026(10)
  403.         Delay INTEGER002
  404.         Backup 80
  405.         ClrEol
  406.         Goto LABEL010
  407.     Endif
  408.     If (EvtTimeAdj()) Then
  409.         Print TSTRING026(11)
  410.         Delay INTEGER002
  411.         Backup 80
  412.         ClrEol
  413.         Goto LABEL010
  414.     Endif
  415.     If (MinLeft() - 2 < TINTEGER004(14)) Then
  416.         TSTRING024(4) = ReplaceStr(TSTRING025(4), "@COBS22@", String(MinLeft() - 2))
  417.     Else
  418.         TSTRING024(4) = ReplaceStr(TSTRING025(4), "@COBS22@", String(TINTEGER004(14)))
  419.     Endif
  420.     STRING016 = ""
  421.     InputStr TSTRING024(4) + " _", STRING016, 7, Len(TINTEGER004(14)), Mask_Num(), 32
  422.     If (STRING016 == "") Goto LABEL010
  423.     If ((STRING016 > MinLeft() - 2) || (STRING016 > TINTEGER004(14))) Then
  424.         Print TSTRING026(3)
  425.         Delay INTEGER002
  426.         Backup 80
  427.         ClrEol
  428.         Goto LABEL010
  429.     Else
  430.         If (Random(1)) Then
  431.             Log STRING027 + "T-G: W" + String(STRING016) + "]", 0
  432.             Print TSTRING026(6)
  433.             AdjTime STRING016
  434.         Else
  435.             Log STRING027 + "T-G: L" + String(STRING016) + "]", 0
  436.             Print TSTRING026(7)
  437.             AdjTime -STRING016
  438.         Endif
  439.         TINTEGER004(17) = MinLeft()
  440.         If ((TSTRING020(17) <> "") && AnsiOn()) Then
  441.             AnsiPos TSTRING020(17), TSTRING021(17)
  442.             Color TSTRING023(17)
  443.             Print Left(TINTEGER004(17), 3)
  444.         Endif
  445.         AnsiPos 1, STRING022
  446.         Delay INTEGER002
  447.         DefColor
  448.         ClrEol
  449.         Goto LABEL010
  450.     Endif
  451.     Goto LABEL010
  452.     :LABEL015
  453.     If (((TINTEGER004(16) <= 0) || (TINTEGER004(10) >= TINTEGER004(4))) || (((INTEGER006 == INTEGER009) && (TINTEGER004(5) <> 0)) && (TINTEGER004(5) == TINTEGER004(11)))) Then
  454.         Print TSTRING026(8)
  455.         Delay INTEGER002
  456.         Backup 80
  457.         ClrEol
  458.         Goto LABEL010
  459.     Endif
  460.     PROC012()
  461.     STRING016 = ""
  462.     InputStr TSTRING024(5) + " _", STRING016, 7, Len(TINTEGER004(4)), Mask_Num(), 32
  463.     If (STRING016 == "") Goto LABEL010
  464.     If (TINTEGER004(5) <> 0) Then
  465.         If (((((INTEGER006 == INTEGER009) && (STRING016 + TINTEGER004(11) > TINTEGER004(5) + TINTEGER004(12))) || (STRING016 > TINTEGER004(5) + TINTEGER004(12))) || (STRING016 + TINTEGER004(10) > TINTEGER004(4))) || (STRING016 > TINTEGER004(16))) Then
  466.             Gosub LABEL016
  467.             Goto LABEL010
  468.         Else
  469.             Gosub LABEL017
  470.             Goto LABEL010
  471.         Endif
  472.     ElseIf ((TINTEGER004(10) + STRING016 > TINTEGER004(4)) || (STRING016 > TINTEGER004(16))) Then
  473.         Gosub LABEL016
  474.         Goto LABEL010
  475.     Else
  476.         Gosub LABEL017
  477.         Goto LABEL010
  478.     Endif
  479.     Goto LABEL010
  480.     :LABEL016
  481.     Print TSTRING026(1)
  482.     Delay INTEGER002
  483.     Backup 80
  484.     ClrEol
  485.     Return
  486.     :LABEL017
  487.     Log STRING027 + "B-D: " + String(STRING016) + "]", 0
  488.     Print TSTRING026(4)
  489.     AdjDBytes STRING016 * 1024
  490.     TINTEGER004(16) = TINTEGER004(16) - STRING016
  491.     TINTEGER004(10) = TINTEGER004(10) + STRING016
  492.     If (INTEGER006 == INTEGER009) Then
  493.         TINTEGER004(11) = TINTEGER004(11) + STRING016
  494.     Else
  495.         INTEGER006 = INTEGER009
  496.         TINTEGER004(11) = STRING016
  497.     Endif
  498.     If (INTEGER008 == INTEGER009) Then
  499.         TINTEGER004(11) = TINTEGER004(11) - TINTEGER004(12)
  500.         If (TINTEGER004(11) < 0) TINTEGER004(11) = 0
  501.     Endif
  502.     If (TINTEGER004(12) - STRING016 < 0) Then
  503.         TINTEGER004(12) = 0
  504.     Else
  505.         TINTEGER004(12) = TINTEGER004(12) - STRING016
  506.     Endif
  507.     If ((TSTRING020(10) <> "") && AnsiOn()) Then
  508.         AnsiPos TSTRING020(10), TSTRING021(10)
  509.         Color TSTRING023(10)
  510.         Print Left(TINTEGER004(10), 6)
  511.     Endif
  512.     If ((TSTRING020(11) <> "") && AnsiOn()) Then
  513.         AnsiPos TSTRING020(11), TSTRING021(11)
  514.         Color TSTRING023(11)
  515.         Print Left(TINTEGER004(11), 6)
  516.     Endif
  517.     If ((TSTRING020(12) <> "") && AnsiOn()) Then
  518.         AnsiPos TSTRING020(12), TSTRING021(12)
  519.         Color TSTRING023(12)
  520.         Print Left(TINTEGER004(12), 6)
  521.     Endif
  522.     If ((TSTRING020(16) <> "") && AnsiOn()) Then
  523.         AnsiPos TSTRING020(16), TSTRING021(16)
  524.         Color TSTRING023(16)
  525.         Print Left(TINTEGER004(16), 6)
  526.     Endif
  527.     AnsiPos 1, STRING022
  528.     Delay INTEGER002
  529.     DefColor
  530.     ClrEol
  531.     Return
  532.     :LABEL018
  533.     If ((TINTEGER004(10) == 0) || (((INTEGER008 == INTEGER009) && (TINTEGER004(6) <> 0)) && (TINTEGER004(6) == TINTEGER004(12)))) Then
  534.         Print TSTRING026(9)
  535.         Delay INTEGER002
  536.         Backup 80
  537.         ClrEol
  538.         Goto LABEL010
  539.     Endif
  540.     PROC013()
  541.     STRING016 = ""
  542.     InputStr TSTRING024(6) + " _", STRING016, 7, Len(TINTEGER004(4)), Mask_Num(), 32
  543.     If (STRING016 == "") Goto LABEL010
  544.     If (TINTEGER004(6) <> 0) Then
  545.         If ((((INTEGER008 == INTEGER009) && (STRING016 + TINTEGER004(12) > TINTEGER004(6) + TINTEGER004(11))) || (STRING016 > TINTEGER004(6) + TINTEGER004(11))) || (TINTEGER004(10) - STRING016 < 0)) Then
  546.             Gosub LABEL019
  547.             Goto LABEL010
  548.         Else
  549.             Gosub LABEL020
  550.             Goto LABEL010
  551.         Endif
  552.     ElseIf (STRING016 > TINTEGER004(10)) Then
  553.         Gosub LABEL019
  554.         Goto LABEL010
  555.     Else
  556.         Gosub LABEL020
  557.         Goto LABEL010
  558.     Endif
  559.     Goto LABEL010
  560.     :LABEL019
  561.     Print TSTRING026(2)
  562.     Delay INTEGER002
  563.     Backup 80
  564.     ClrEol
  565.     Return
  566.     :LABEL020
  567.     Log STRING027 + "B-W: " + String(STRING016) + "]", 0
  568.     Print TSTRING026(5)
  569.     AdjDBytes -STRING016 * 1024
  570.     TINTEGER004(16) = TINTEGER004(16) + STRING016
  571.     TINTEGER004(10) = TINTEGER004(10) - STRING016
  572.     If (INTEGER008 == INTEGER009) Then
  573.         TINTEGER004(12) = TINTEGER004(12) + STRING016
  574.     Else
  575.         INTEGER008 = INTEGER009
  576.         TINTEGER004(12) = STRING016
  577.     Endif
  578.     If (INTEGER006 == INTEGER009) Then
  579.         TINTEGER004(12) = TINTEGER004(12) - TINTEGER004(11)
  580.         If (TINTEGER004(12) < 0) TINTEGER004(12) = 0
  581.     Endif
  582.     If (TINTEGER004(11) - STRING016 < 0) Then
  583.         TINTEGER004(11) = 0
  584.     Else
  585.         TINTEGER004(11) = TINTEGER004(11) - STRING016
  586.     Endif
  587.     If ((TSTRING020(10) <> "") && AnsiOn()) Then
  588.         AnsiPos TSTRING020(10), TSTRING021(10)
  589.         Color TSTRING023(10)
  590.         Print Left(TINTEGER004(10), 6)
  591.     Endif
  592.     If ((TSTRING020(11) <> "") && AnsiOn()) Then
  593.         AnsiPos TSTRING020(11), TSTRING021(11)
  594.         Color TSTRING023(11)
  595.         Print Left(TINTEGER004(11), 6)
  596.     Endif
  597.     If ((TSTRING020(12) <> "") && AnsiOn()) Then
  598.         AnsiPos TSTRING020(12), TSTRING021(12)
  599.         Color TSTRING023(12)
  600.         Print Left(TINTEGER004(12), 6)
  601.     Endif
  602.     If ((TSTRING020(16) <> "") && AnsiOn()) Then
  603.         AnsiPos TSTRING020(16), TSTRING021(16)
  604.         Color TSTRING023(16)
  605.         Print Left(TINTEGER004(16), 6)
  606.     Endif
  607.     AnsiPos 1, STRING022
  608.     Delay INTEGER002
  609.     DefColor
  610.     ClrEol
  611.     Return
  612.     :LABEL021
  613.     If (TINTEGER004(16) == 0) Then
  614.         Print TSTRING026(12)
  615.         Delay INTEGER002
  616.         Backup 80
  617.         ClrEol
  618.         Goto LABEL010
  619.     Endif
  620.     If (TINTEGER004(16) < TINTEGER004(15)) Then
  621.         TSTRING024(7) = ReplaceStr(TSTRING025(7), "@COBS23@", String(TINTEGER004(16)))
  622.     Else
  623.         TSTRING024(7) = ReplaceStr(TSTRING025(7), "@COBS23@", String(TINTEGER004(15)))
  624.     Endif
  625.     STRING016 = ""
  626.     InputStr TSTRING024(7) + " _", STRING016, 7, Len(TINTEGER004(15)), Mask_Num(), 32
  627.     If (STRING016 == "") Goto LABEL010
  628.     If ((STRING016 > TINTEGER004(15)) || (STRING016 > TINTEGER004(16))) Then
  629.         Print TSTRING026(3)
  630.         Delay INTEGER002
  631.         Backup 80
  632.         ClrEol
  633.         Goto LABEL010
  634.     Else
  635.         If (Random(1)) Then
  636.             Log STRING027 + "B-G: W" + String(STRING016) + "]", 0
  637.             Print TSTRING026(6)
  638.             AdjDBytes -STRING016 * 1024
  639.             TINTEGER004(16) = TINTEGER004(16) + STRING016
  640.         Else
  641.             Log STRING027 + "B-G: L" + String(STRING016) + "]", 0
  642.             Print TSTRING026(7)
  643.             AdjDBytes STRING016 * 1024
  644.             TINTEGER004(16) = TINTEGER004(16) - STRING016
  645.         Endif
  646.         If ((TSTRING020(16) <> "") && AnsiOn()) Then
  647.             AnsiPos TSTRING020(16), TSTRING021(16)
  648.             Color TSTRING023(16)
  649.             Print Left(TINTEGER004(16), 6)
  650.         Endif
  651.         AnsiPos 1, STRING022
  652.         Delay INTEGER002
  653.         DefColor
  654.         ClrEol
  655.         Goto LABEL010
  656.     Endif
  657.     Goto LABEL010
  658.     End
  659.  
  660. ;------------------------------------------------------------------------------
  661.  
  662.     Procedure PROC005()
  663.  
  664.     Cls
  665.     Newline
  666.     PrintLn "@X7F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X78▄@X07"
  667.     PrintLn "@X7F█ ┌─TIME─BANK─@X78(@X7FMINUTES@X78)@X7F────────@X70┐ @X7F┌─BYTE─BANK─@X78(@X7FKILOBYTES@X78)@X7F──────────@X70┐ @X78█@X07"
  668.     PrintLn "@X7F█ ├────────────────────────────@X70┤ @X7F├────────────────────────────────@X70┤ @X78█@X07"
  669.     PrintLn "@X7F█ │ @X70Description .... │Max!│Your│ @X7F│ @X70Description .... │ Max! │ Your │ @X78█@X07"
  670.     PrintLn "@X7F█ │──────────────────@X70│@X7F────@X70│@X7F────@X70│ @X7F│──────────────────@X70│@X7F──────@X70│@X7F──────@X70│ @X78█@X07"
  671.     PrintLn "@X7F█ │ @X78Bank Storage ... @X70│ " + Left(String(TINTEGER004(1)), 3) + "│ " + Left(String(TINTEGER004(7)), 3) + "│ @X7F│ @X78Bank Storage ... @X70│" + Left(String(TINTEGER004(4)), 6) + "│" + Left(String(TINTEGER004(10)), 6) + "│ @X78█@X07"
  672.     PrintLn "@X7F█ │ @X78Deposit  / Day . @X70│ " + Left(String(TINTEGER004(2)), 3) + "│ " + Left(String(TINTEGER004(8)), 3) + "│ @X7F│ @X78Deposit  / Day . @X70│" + Left(String(TINTEGER004(5)), 6) + "│" + Left(String(TINTEGER004(11)), 6) + "│ @X78█@X07"
  673.     PrintLn "@X7F█ │ @X78Withdraw / Day . @X70│ " + Left(String(TINTEGER004(3)), 3) + "│ " + Left(String(TINTEGER004(9)), 3) + "│ @X7F│ @X78Withdraw / Day . @X70│" + Left(String(TINTEGER004(6)), 6) + "│" + Left(String(TINTEGER004(12)), 6) + "│ @X78█@X07"
  674.     PrintLn "@X7F█ │ @X78Time Left Online @X70│    │ " + Left(String(TINTEGER004(17)), 3) + "│ @X7F│ @X78Bytes Left Today @X70│      │" + Left(String(TINTEGER004(16)), 6) + "│ @X78█@X07"
  675.     PrintLn "@X7F█ └@X70────────────────────────────┘ @X7F└@X70────────────────────────────────┘ @X78█@X07"
  676.     PrintLn "@X7F█ ┌───────────────────────────────────────────────────────────────@X70┐ @X78█@X07"
  677.     PrintLn "@X7F█ │ [@X71WT@X70] @X78Withdraw Time  @X7F[@X71WB@X70] @X78Withdraw K-Bytes  @X7F[@X71GT@X70] @X78Gamble Time   @X70│ @X78█@X07"
  678.     PrintLn "@X7F█ │ [@X71DT@X70] @X78Deposit  Time  @X7F[@X71DB@X70] @X78Deposit  K-Bytes  @X7F[@X71GB@X70] @X78Gamble K-Bytes@X70│ @X78█@X07"
  679.     PrintLn "@X7F█ └@X70───────────────────────────────────────────────────────────────┘ @X78█@X07"
  680.     PrintLn "▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  681.     TSTRING020(1) = 24
  682.     TSTRING021(1) = 7
  683.     TSTRING020(2) = 24
  684.     TSTRING021(2) = 8
  685.     TSTRING020(3) = 24
  686.     TSTRING021(3) = 9
  687.     TSTRING020(4) = 54
  688.     TSTRING021(4) = 7
  689.     TSTRING020(5) = 54
  690.     TSTRING021(5) = 8
  691.     TSTRING020(6) = 54
  692.     TSTRING021(6) = 9
  693.     TSTRING020(7) = 29
  694.     TSTRING021(7) = 7
  695.     TSTRING020(8) = 29
  696.     TSTRING021(8) = 8
  697.     TSTRING020(9) = 29
  698.     TSTRING021(9) = 9
  699.     TSTRING020(10) = 61
  700.     TSTRING021(10) = 7
  701.     TSTRING020(11) = 61
  702.     TSTRING021(11) = 8
  703.     TSTRING020(12) = 61
  704.     TSTRING021(12) = 9
  705.     TSTRING020(16) = 61
  706.     TSTRING021(16) = 10
  707.     TSTRING020(17) = 29
  708.     TSTRING021(17) = 10
  709.     For INTEGER001 = 1 To 20
  710.         TSTRING023(INTEGER001) = 112
  711.     Next
  712.  
  713.     EndProc
  714.  
  715.  
  716. ;------------------------------------------------------------------------------
  717.  
  718.     Procedure PROC009()
  719.  
  720.     TINTEGER004(18) = MinLeft() - 2
  721.     If (MinLeft() - 2 > TINTEGER004(1) - TINTEGER004(7)) TINTEGER004(18) = TINTEGER004(1) - TINTEGER004(7)
  722.     If (TINTEGER004(2) <> 0) Then
  723.         If (INTEGER005 == INTEGER009) Then
  724.             If (TINTEGER004(18) > TINTEGER004(2) - TINTEGER004(8)) TINTEGER004(18) = TINTEGER004(2) - TINTEGER004(8) + TINTEGER004(9)
  725.             Goto LABEL022
  726.         Endif
  727.         If (TINTEGER004(18) > TINTEGER004(2)) TINTEGER004(18) = TINTEGER004(2) + TINTEGER004(9)
  728.     Endif
  729.     :LABEL022
  730.     If (TINTEGER004(18) + TINTEGER004(7) > TINTEGER004(1)) TINTEGER004(18) = TINTEGER004(1) - TINTEGER004(7)
  731.     TSTRING024(2) = ReplaceStr(TSTRING025(2), "@COBS18@", String(TINTEGER004(18)))
  732.  
  733.     EndProc
  734.  
  735.  
  736. ;------------------------------------------------------------------------------
  737.  
  738.     Procedure PROC010()
  739.  
  740.     TINTEGER004(19) = TINTEGER004(7)
  741.     If (TINTEGER004(3) <> 0) Then
  742.         If (INTEGER007 == INTEGER009) Then
  743.             If (TINTEGER004(19) > TINTEGER004(3) - TINTEGER004(9)) TINTEGER004(19) = TINTEGER004(3) - TINTEGER004(9) + TINTEGER004(8)
  744.             Goto LABEL023
  745.         Endif
  746.         If (TINTEGER004(19) > TINTEGER004(3)) TINTEGER004(19) = TINTEGER004(3) + TINTEGER004(8)
  747.     Endif
  748.     :LABEL023
  749.     If (TINTEGER004(19) > TINTEGER004(7)) TINTEGER004(19) = TINTEGER004(7)
  750.     TSTRING024(3) = ReplaceStr(TSTRING025(3), "@COBS19@", String(TINTEGER004(19)))
  751.  
  752.     EndProc
  753.  
  754.  
  755. ;------------------------------------------------------------------------------
  756.  
  757.     Procedure PROC011()
  758.  
  759.     If (FileInf(PPEPath() + PPEName() + ".PPE", 4) <> 21454) PROC001(0)
  760.  
  761.     EndProc
  762.  
  763.  
  764. ;------------------------------------------------------------------------------
  765.  
  766.     Procedure PROC012()
  767.  
  768.     TINTEGER004(20) = TINTEGER004(16)
  769.     If (TINTEGER004(16) > TINTEGER004(4) - TINTEGER004(10)) TINTEGER004(20) = TINTEGER004(4) - TINTEGER004(10)
  770.     If (TINTEGER004(5) <> 0) Then
  771.         If (INTEGER006 == INTEGER009) Then
  772.             If (TINTEGER004(20) > TINTEGER004(5) - TINTEGER004(11)) TINTEGER004(20) = TINTEGER004(5) - TINTEGER004(11) + TINTEGER004(12)
  773.             Goto LABEL024
  774.         Endif
  775.         If (TINTEGER004(20) > TINTEGER004(5)) TINTEGER004(20) = TINTEGER004(5) + TINTEGER004(12)
  776.     Endif
  777.     :LABEL024
  778.     If (TINTEGER004(20) + TINTEGER004(10) > TINTEGER004(4)) TINTEGER004(20) = TINTEGER004(4) - TINTEGER004(10)
  779.     TSTRING024(5) = ReplaceStr(TSTRING025(5), "@COBS20@", String(TINTEGER004(20)))
  780.  
  781.     EndProc
  782.  
  783.  
  784. ;------------------------------------------------------------------------------
  785.  
  786.     Procedure PROC013()
  787.  
  788.     TINTEGER004(21) = TINTEGER004(10)
  789.     If (TINTEGER004(6) <> 0) Then
  790.         If (INTEGER008 == INTEGER009) Then
  791.             If (TINTEGER004(21) > TINTEGER004(6) - TINTEGER004(12)) TINTEGER004(21) = TINTEGER004(6) - TINTEGER004(12) + TINTEGER004(11)
  792.             Goto LABEL025
  793.         Endif
  794.         If (TINTEGER004(21) > TINTEGER004(6)) TINTEGER004(21) = TINTEGER004(6) + TINTEGER004(11)
  795.     Endif
  796.     :LABEL025
  797.     If (TINTEGER004(21) > TINTEGER004(10)) TINTEGER004(21) = TINTEGER004(10)
  798.     TSTRING024(6) = ReplaceStr(TSTRING025(6), "@COBS21@", String(TINTEGER004(21)))
  799.  
  800.     EndProc
  801.  
  802.  
  803. ;------------------------------------------------------------------------------
  804.  
  805.     Procedure PROC001(Boolean BOOLEAN001)
  806.  
  807.     If (BOOLEAN001) PROC002()
  808.     Log STRING027 + Left(Time(), 5) + " / " + String(MinLeft()) + " / " + String(TINTEGER004(16)) + "]", 0
  809.     End
  810.  
  811.     EndProc
  812.  
  813.  
  814. ;------------------------------------------------------------------------------
  815.  
  816.     Procedure PROC004()
  817.  
  818.     If (Crc32(0, STRING002 + " " + STRING003) <> 89652688) PROC001(0)
  819.  
  820.     EndProc
  821.  
  822.  
  823. ;------------------------------------------------------------------------------
  824.  
  825.     Procedure PROC002()
  826.  
  827.     U_Notes(INTEGER003 - 1) = "MS[" + Right(String(TINTEGER004(7)), 3) + "|" + Right(String(INTEGER005), 5) + "|" + Right(String(TINTEGER004(8)), 3) + "|" + Right(String(INTEGER007), 5) + "|" + Right(String(TINTEGER004(9)), 3) + "|" + Right(String(TINTEGER004(10)), 6) + "|" + Right(String(INTEGER006), 5) + "|" + Right(String(TINTEGER004(11)), 6) + "|" + Right(String(INTEGER008), 5) + "|" + Right(String(TINTEGER004(12)), 6) + "]"
  828.     PutUser
  829.  
  830.     EndProc
  831.  
  832.  
  833. ;------------------------------------------------------------------------------
  834.  
  835.     Procedure PROC003()
  836.  
  837.     FOpen 3, STRING008, 0, 0
  838.     FGet 3, STRING009
  839.     If (STRING009 <> "") TSTRING024(1) = STRING009
  840.     FGet 3, STRING009
  841.     If (STRING009 <> "") Then
  842.         TSTRING019(1) = Upper(Left(STRING009, InStr(STRING009, ",") - 1))
  843.         TSTRING025(2) = Right(STRING009, Len(STRING009) - InStr(STRING009, ","))
  844.     Endif
  845.     FGet 3, STRING009
  846.     If (STRING009 <> "") Then
  847.         TSTRING019(2) = Upper(Left(STRING009, InStr(STRING009, ",") - 1))
  848.         TSTRING025(3) = Right(STRING009, Len(STRING009) - InStr(STRING009, ","))
  849.     Endif
  850.     FGet 3, STRING009
  851.     If (STRING009 <> "") Then
  852.         TSTRING019(3) = Upper(Left(STRING009, InStr(STRING009, ",") - 1))
  853.         TSTRING025(4) = Right(STRING009, Len(STRING009) - InStr(STRING009, ","))
  854.     Endif
  855.     FGet 3, STRING009
  856.     If (STRING009 <> "") Then
  857.         TSTRING019(4) = Upper(Left(STRING009, InStr(STRING009, ",") - 1))
  858.         TSTRING025(5) = Right(STRING009, Len(STRING009) - InStr(STRING009, ","))
  859.     Endif
  860.     FGet 3, STRING009
  861.     If (STRING009 <> "") Then
  862.         TSTRING019(5) = Upper(Left(STRING009, InStr(STRING009, ",") - 1))
  863.         TSTRING025(6) = Right(STRING009, Len(STRING009) - InStr(STRING009, ","))
  864.     Endif
  865.     FGet 3, STRING009
  866.     If (STRING009 <> "") Then
  867.         TSTRING019(6) = Upper(Left(STRING009, InStr(STRING009, ",") - 1))
  868.         TSTRING025(7) = Right(STRING009, Len(STRING009) - InStr(STRING009, ","))
  869.     Endif
  870.     FGet 3, STRING009
  871.     If (STRING009 <> "") TSTRING026(1) = STRING009
  872.     FGet 3, STRING009
  873.     If (STRING009 <> "") TSTRING026(2) = STRING009
  874.     FGet 3, STRING009
  875.     If (STRING009 <> "") TSTRING026(3) = STRING009
  876.     FGet 3, STRING009
  877.     If (STRING009 <> "") TSTRING026(4) = STRING009
  878.     FGet 3, STRING009
  879.     If (STRING009 <> "") TSTRING026(5) = STRING009
  880.     FGet 3, STRING009
  881.     If (STRING009 <> "") TSTRING026(6) = STRING009
  882.     FGet 3, STRING009
  883.     If (STRING009 <> "") TSTRING026(7) = STRING009
  884.     FGet 3, STRING009
  885.     If (STRING009 <> "") TSTRING026(8) = STRING009
  886.     FGet 3, STRING009
  887.     If (STRING009 <> "") TSTRING026(9) = STRING009
  888.     FGet 3, STRING009
  889.     If (STRING009 <> "") TSTRING026(10) = STRING009
  890.     FGet 3, STRING009
  891.     If (STRING009 <> "") TSTRING026(11) = STRING009
  892.     FClose 3
  893.  
  894.     EndProc
  895.  
  896.  
  897. ;------------------------------------------------------------------------------
  898.  
  899.     Procedure PROC006()
  900.  
  901.     Print TSTRING026(2)
  902.     Delay INTEGER002
  903.     Backup 80
  904.     ClrEol
  905.  
  906.     EndProc
  907.  
  908.  
  909. ;------------------------------------------------------------------------------
  910.  
  911.     Procedure PROC007()
  912.  
  913.     Print TSTRING026(1)
  914.     Delay INTEGER002
  915.     Backup 80
  916.     ClrEol
  917.  
  918.     EndProc
  919.  
  920.  
  921. ;------------------------------------------------------------------------------
  922.  
  923.     Procedure PROC008()
  924.  
  925.     Log STRING027 + "T-D: " + String(STRING016) + "]", 0
  926.     Print TSTRING026(4)
  927.     AdjTime -STRING016
  928.     TINTEGER004(17) = RTrim(Left(MinLeft(), 3), " ")
  929.     TINTEGER004(7) = TINTEGER004(7) + STRING016
  930.     If (INTEGER005 == INTEGER009) Then
  931.         TINTEGER004(8) = TINTEGER004(8) + STRING016
  932.     Else
  933.         INTEGER005 = INTEGER009
  934.         TINTEGER004(8) = STRING016
  935.     Endif
  936.     If (INTEGER007 == INTEGER009) Then
  937.         TINTEGER004(8) = TINTEGER004(8) - TINTEGER004(9)
  938.         If (TINTEGER004(8) < 0) TINTEGER004(8) = 0
  939.     Endif
  940.     If (TINTEGER004(9) - STRING016 < 0) Then
  941.         TINTEGER004(9) = 0
  942.     Else
  943.         TINTEGER004(9) = TINTEGER004(9) - STRING016
  944.     Endif
  945.     If ((TSTRING020(7) <> "") && AnsiOn()) Then
  946.         AnsiPos TSTRING020(7), TSTRING021(7)
  947.         Color TSTRING023(7)
  948.         Print Left(TINTEGER004(7), 3)
  949.     Endif
  950.     If ((TSTRING020(8) <> "") && AnsiOn()) Then
  951.         AnsiPos TSTRING020(8), TSTRING021(8)
  952.         Color TSTRING023(8)
  953.         Print Left(TINTEGER004(8), 3)
  954.     Endif
  955.     If ((TSTRING020(9) <> "") && AnsiOn()) Then
  956.         AnsiPos TSTRING020(9), TSTRING021(9)
  957.         Color TSTRING023(9)
  958.         Print Left(TINTEGER004(9), 3)
  959.     Endif
  960.     If ((TSTRING020(17) <> "") && AnsiOn()) Then
  961.         AnsiPos TSTRING020(17), TSTRING021(17)
  962.         Color TSTRING023(17)
  963.         Print Left(TINTEGER004(17), 3)
  964.     Endif
  965.     AnsiPos 1, STRING022
  966.     Delay INTEGER002
  967.     DefColor
  968.     ClrEol
  969.  
  970.     EndProc
  971.  
  972.  
  973. ;------------------------------------------------------------------------------
  974. ;
  975. ; Usage report (before postprocessing)
  976. ;
  977. ; ■ Statements used :
  978. ;
  979. ;    2       End
  980. ;    2       Cls
  981. ;    21      ClrEol
  982. ;    18      Color 
  983. ;    192     Goto 
  984. ;    233     Let 
  985. ;    45      Print 
  986. ;    20      PrintLn 
  987. ;    146     If 
  988. ;    1       DispFile 
  989. ;    4       FOpen 
  990. ;    5       FClose 
  991. ;    23      FGet 
  992. ;    1       GetUser
  993. ;    2       PutUser
  994. ;    7       DefColor
  995. ;    4       AdjTime 
  996. ;    12      Log 
  997. ;    7       InputStr 
  998. ;    10      Gosub 
  999. ;    5       Return
  1000. ;    21      Delay 
  1001. ;    7       Newline
  1002. ;    24      AnsiPos 
  1003. ;    15      Backup 
  1004. ;    4       AdjDBytes 
  1005. ;    13      EndProc
  1006. ;
  1007. ;
  1008. ; ■ Functions used :
  1009. ;
  1010. ;    5       -
  1011. ;    4       *
  1012. ;    1       /
  1013. ;    232     +
  1014. ;    80      -
  1015. ;    46      ==
  1016. ;    59      <>
  1017. ;    20      <
  1018. ;    3       <=
  1019. ;    42      >
  1020. ;    6       >=
  1021. ;    94      !
  1022. ;    38      &&
  1023. ;    23      ||
  1024. ;    32      Len(
  1025. ;    6       Upper()
  1026. ;    67      Left()
  1027. ;    44      Right()
  1028. ;    2       Space()
  1029. ;    3       Ferr()
  1030. ;    41      Chr()
  1031. ;    38      InStr()
  1032. ;    6       LTrim()
  1033. ;    3       RTrim()
  1034. ;    2       Random()
  1035. ;    1       Date()
  1036. ;    2       Time()
  1037. ;    1       U_BdlDay()
  1038. ;    62      String()
  1039. ;    6       Mask_Num()
  1040. ;    1       PCBDat()
  1041. ;    5       PPEPath()
  1042. ;    1       ReadLine()
  1043. ;    14      MinLeft()
  1044. ;    4       Exist()
  1045. ;    18      AnsiOn()
  1046. ;    2       GetX()
  1047. ;    3       GetY()
  1048. ;    1       Psa()
  1049. ;    1       FileInf()
  1050. ;    1       PPEName()
  1051. ;    2       CurColor()
  1052. ;    8       ReplaceStr()
  1053. ;    2       EvtTimeAdj()
  1054. ;    1       Crc32()
  1055. ;
  1056. ;------------------------------------------------------------------------------
  1057. ;
  1058. ; Analysis flags : WAad
  1059. ;
  1060. ; W - Write user ■ 5
  1061. ;     Program writes a user record. Although this may be normal for a
  1062. ;     User Editor, it may also be a way to modify an account level.
  1063. ;     ■ Search for : PUTUSER
  1064. ;
  1065. ; A - Adjust online time remaining ■ 5
  1066. ;     Program modify the amount of online time remaining, this may
  1067. ;     be a way to bypass time limits
  1068. ;     ■ Search for : ADJTIME
  1069. ;
  1070. ; a - Adjust ratio ■ 4
  1071. ;     User's ratio is adjusted by changing the amount of files/bytes
  1072. ;     uploaded. This may be normal for a user editor.
  1073. ;     ■ Search for : ADJBYTES, ADJDBYTES, ADJTBYTES, ADJTFILES
  1074. ;
  1075. ; d - Access PCBOARD.DAT ■ 2
  1076. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1077. ;     for many PPE so they can find various informations on the system
  1078. ;     (system paths, max number of lines in messages, ...) but it may also
  1079. ;     be a way to gather vital informations.
  1080. ;     ■ Search for : PCBDAT()
  1081. ;
  1082. ;------------------------------------------------------------------------------
  1083. ;
  1084. ; Postprocessing report
  1085. ;
  1086. ;    2       For/Next
  1087. ;    1       While/EndWhile
  1088. ;    78      If/Then or If/Then/Else
  1089. ;    1       Select Case
  1090. ;
  1091. ;------------------------------------------------------------------------------
  1092. ;                 AEGiS Corp - Break the routines, code against the machines!
  1093. ;------------------------------------------------------------------------------
  1094.